home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / CD Extras / Plug-ins / QuarkXPress / XChange International demos / INposition / INpos Demo 1.5.1 (3.3) Folder / INposition® 1.5.1 / INpositionÆ 1.5.1.rsrc / EPSF_28000 < prev    next >
Text File  |  1995-01-25  |  430b  |  11 lines
  1. dup dup dup begin
  2. /ct1 known{/ct1 150 string store ct1 149 0 put}if
  3. /kp known{/kp{ct1 0 2 index length 2 index 149 2 index 
  4.  put getinterval copy cvx exec mtx1 currentmatrix 
  5.  pop cps np mif}bind store}if
  6. /setclp known{/setclp{np 0 0 m
  7.  ct1 149 get 0 ne{ct1 0 ct1 149 get getinterval cvx exec}if
  8.  ct2 ctz get 256 mul ct2 ctz 1 add get add dup 0 ne
  9.  {dup ct2 0 3 -1 roll getinterval cvx exec}if pop cps np mif}bind store}if
  10. end}if
  11.